home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / programming / basic / guitoolkit / arexx / moveeverything.rx < prev   
Text File  |  1998-01-05  |  298b  |  22 lines
  1. /* This script will move all gadgets xoffset and yoffset  */
  2.  
  3. address "GUITKREXX"
  4. Options Results
  5. xoff=8
  6. yoff=8
  7.  
  8. NoOfGadgets
  9. say (result)
  10.  
  11. n=Result
  12. do loop = 1 to n
  13.     MoveGadget loop xoff yoff
  14.     end    
  15. NoOfBorders
  16. n=Result
  17. say (result)
  18. do loop = 1 to n
  19.     MoveBorder loop xoff yoff
  20.     end    
  21. say "all done!"
  22.